home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 22 / 2 / DISK2220.ZIP / SCREDIT2.EXE / SCREDIT.C < prev    next >
C/C++ Source or Header  |  1991-01-05  |  58KB  |  2,719 lines
  1. #include <stdlib.h>
  2. #include <stdio.h>
  3. #include <conio.h>
  4. #include <dos.h> 
  5. #include <mem.h>
  6. #include <bios.h>
  7. #include <string.h>
  8. #include <math.h>
  9. #include <ctype.h>
  10. #include <alloc.h>
  11. #include "scredit.h"
  12. #include "#defines.C"
  13.  
  14. #ifdef MOUSE
  15. #include "ScrMouse.c"
  16. #endif
  17.  
  18. typedef union
  19.   {
  20.   int ch;
  21.   struct{
  22.     unsigned char lsb;
  23.     unsigned char msb;
  24.     } byte;
  25.   }keyindef;
  26. keyindef shiftstat;
  27.  
  28. struct {
  29.     char           s_name [17];
  30.     unsigned char  s_number;
  31.     int            s_recordnumber;
  32.     int            s_fieldsrecno;
  33.     int            s_rangerecno;
  34.     unsigned char  s_first;
  35.     unsigned char  s_count;
  36.     unsigned char  s_compiledind;
  37.     }s_curr;
  38.  
  39. s_rec_def *s_indx, *s_record, *s_field;
  40.  
  41. int long s_cursorold;
  42. FILE *s_file, *s_work;
  43. enum s_cursors s_cursor;
  44.  unsigned char
  45.  s_tabatendoffield,
  46.  s_clearifnotrightarrow,
  47.  s_clearnotright,
  48.  s_sound,
  49.  s_helpsound,
  50.  s_errorsound,
  51.  s_usersound,
  52.  s_showstatus,
  53.  s_changescreen,
  54.  s_force_editmask,
  55.  S_PosLastChar,
  56.  s_autohelp,
  57.  s_autovalidate,
  58.  s_enterastab,
  59.  s_delayscreen,
  60.  s_delayed,
  61.  s_fkey,
  62.  s_f1,
  63.  s_f2,
  64.  s_f3,
  65.  s_f4,
  66.  s_f5,
  67.  s_f6,
  68.  s_f7,
  69.  s_f8,
  70.  s_f9,
  71.  s_f10,
  72.  s_f11,
  73.  s_f12,
  74.  s_enter,
  75.  s_bksp,
  76.  s_home,
  77.  s_up,
  78.  s_pgup,
  79.  s_left,
  80.  s_right,
  81.  s_end,
  82.  s_down,
  83.  s_pgdn,
  84.  s_ins,
  85.  s_del,
  86.  s_tab,
  87.  s_shift,
  88.  s_leftshift,
  89.  s_rightshift,
  90.  s_insertmode,
  91.  s_insertkey,
  92.  s_deletekey,
  93.  s_backspace,
  94.  s_leftarrow,
  95.  s_rightarrow,
  96.  s_scrolllock,
  97.  s_caps,
  98.  s_numlock,
  99.  s_alt,
  100.  s_ctrl,
  101.  s_esc,
  102.  s_helpbg,
  103.  s_helpfg,
  104.  s_errorbg,
  105.  s_errorfg,
  106.  s_userbg,
  107.  s_userfg,
  108.  s_stbg,
  109.  s_stfg,
  110.  s_stlabelbg,
  111.  s_stlabelfg,
  112.  s_stlabelcolor,
  113.  s_stcolor,
  114.  s_ch,
  115.  S_FirstTime = 1,
  116.  s_sound_hold,
  117.  s_mono,
  118.  s_upcase,
  119.  s_validate_finished,
  120.  s_screenvalid,
  121.  s_wait,
  122.  s_nextline,
  123.  s_reverse,
  124.  s_skip,
  125.  s_matched,
  126.  s_min_max_loaded,
  127.  s_endofline,
  128.  s_insideif,
  129.  s_bw,
  130.  s_dupfields,
  131.  s_setdupefields,
  132.  s_entrytype,
  133.  s_disptype,
  134.  s_duptype,
  135.  s_ftype;
  136.  
  137.  char 
  138.  s_alphamaskmsg[81],
  139.  s_numericmaskmsg[81],
  140.  s_numericfieldmsg[81],
  141.  s_alphafieldmsg[81],
  142.  s_usermask   [81],
  143.  s_userhelp   [81],
  144.  s_usermsg     [81],
  145.  s_curstr     [81],
  146.  s_editstrhold[81],
  147.  s_compmin    [81],
  148.  s_compmax    [81],
  149.  s_compfield  [81],
  150.  s_opcode     [81],
  151.  s_opcode1    [81],
  152.  s_workstr    [81],
  153.  s_msg        [81],
  154.  s_editstr    [81],
  155.  s_blanks     [81],
  156.  s_newstr     [81],
  157.  s_padding    [81],
  158.  s_workattrib [81],
  159.  s_normattrib [81],
  160.  s_initialvalue[81],
  161.  s_errormsg    [81],
  162.  s_editmask    [81],
  163.  s_editmasktypes[7],
  164.  s_autohelpmsg [81],
  165.  s_stline      [41],
  166.  s_stattrib    [41],
  167.  s_ins_str     [2];
  168.  
  169.  int
  170.  s_enterafterfield,
  171.  s_firstfield,
  172.  s_point,
  173.  s_freq,
  174.  s_dur,
  175.  s_errorfreq,
  176.  s_errordur,
  177.  s_helpfreq,
  178.  s_helpdur,
  179.  s_userfreq,
  180.  s_userdur,
  181.  s_vrec,
  182.  s_recno,
  183.  s_validateline,
  184.  s_validatefield,
  185.  s_helppos,
  186.  s_nextpos,
  187.  s_lastpos,
  188.  s_str_pos,
  189.  s_attrib,
  190.  s_messbg,
  191.  s_messfg,
  192.  s_num,
  193.  s_f_key,
  194.  s_direction,
  195.  s_decimal,
  196.  s_prevfield,
  197.  s_fieldnum,
  198.  s_sub,
  199.  s_currline,
  200.  s_nextrec;
  201.  
  202. double
  203.  S_Round [8] = {.5,.5,.05,.005,.0005,.00005,.000005,.0000005},
  204.  s_numeric,
  205.  s_compmin_Numeric,
  206.  s_compmax_Numeric;
  207.  
  208. unsigned char s_fileOpen;
  209. int   s_fieldPtr [128],
  210.       CursorDirection,
  211.       FirstPosition,
  212.       LastPosition;
  213. char *S_BuffPtr  [128];
  214. char *S_WorkArea;
  215. unsigned char S_ClearLine;
  216. unsigned char S_TextAttr;
  217. void S_Get_Field_Value(int);
  218. void S_PreEdit(int,int);
  219.  
  220.  
  221. int s_pos(char *s1,char *s2)
  222. {
  223. unsigned long X,Y,Z;
  224. X=0;
  225. Y=0;
  226. Z=0;
  227. while (s1[X]!=0)
  228.   {
  229.   Z=X;
  230.   while (s1[Z]==s2[Y])
  231.      {
  232.      if (s1[Z+Y]==s2[Y])
  233.         {
  234.         Y++;
  235.         if (s2[Y]==0)
  236.            return X;
  237.         }
  238.      else
  239.         {
  240.         Z++;
  241.         Y=0;
  242.         }
  243.      }
  244.   X++;
  245.   }
  246. return -1;
  247. }
  248.  
  249.  
  250.  
  251.  
  252. void s_delete(char *string1, int startpos,int count)
  253. {
  254. unsigned long x,y,z;
  255. char s1 [81];
  256. strcpy(s1,string1);
  257. if  (startpos < strlen(s1))
  258.   {
  259.   z = startpos + count;
  260.   if  (z > strlen(s1)) count = strlen(s1)-startpos;
  261.   string1[startpos]=0;
  262.   strcat(string1,(char*)&s1[startpos + count]);
  263.   }
  264. }
  265.  
  266.  
  267.  
  268.  
  269. void s_insert(char *string1,char *string2,int  insertpoint,int  maxlength)
  270. {
  271. unsigned long X,Y,Z;
  272. char s1 [162], s2 [81], s3 [81];
  273.  
  274. if ((insertpoint > -1) && (insertpoint <= strlen(string1)))
  275.   {
  276.   strcpy(s3,(char *)&string1[insertpoint]);
  277.   string1[insertpoint]=0;
  278.   strcpy(s1,string1);
  279.   strcpy(s2,string2);
  280.   strcat(s1,s2);
  281.   strcat(s1,s3);
  282.   s1[maxlength]=0;
  283.   strcpy(string1,s1);
  284.   }
  285. }
  286.  
  287.  
  288.  
  289. int s_strlen(char *target_string)
  290. {
  291. int x,y,z;
  292.  
  293. x=strlen(target_string);
  294. while ((target_string[x-1]<33)&&(x>=0)) x--;
  295. if  (x>-1) x++;
  296. return x;
  297. }
  298.  
  299.  
  300. void s_resetkeyflags()
  301. {
  302. s_f1=0;
  303. s_f2=0;
  304. s_f3=0;
  305. s_f4=0;
  306. s_f5=0;
  307. s_f6=0;
  308. s_f7=0;
  309. s_f8=0;
  310. s_f9=0;
  311. s_f10=0;
  312. s_f11=0;
  313. s_f12=0;
  314. s_home=0;
  315. s_end=0;
  316. s_pgup=0;
  317. s_pgdn=0;
  318. s_left=0;
  319. s_right=0;
  320. s_up=0;
  321. s_down=0;
  322. s_del=0;
  323. s_tab=0;
  324. s_bksp=0;
  325. s_esc=0;
  326. s_ctrl=0;
  327. s_enter=0;
  328. s_fkey=0;
  329. s_alt=0;
  330. s_shift=0;
  331. s_ins=0;
  332. s_numlock=0;
  333. s_insertkey=0;
  334. s_deletekey=0;
  335. s_backspace=0;
  336. s_leftarrow=0;
  337. s_rightarrow=0;
  338. s_nextpos=0;
  339. s_lastpos=0;
  340. }
  341.  
  342.  
  343.  
  344.  
  345. unsigned char S_SetColor(unsigned char Bg, unsigned char Fg)
  346. {
  347. unsigned char color;
  348. color = (Fg>15)? ((Bg-16)*16)+Fg+127:(Bg*16)+Fg;
  349. return color;
  350. }
  351.  
  352.  
  353.  
  354.  
  355. void s_getfieldtype(unsigned char FType)
  356. {
  357. s_duptype = 0;
  358. s_entrytype = 0;
  359. s_disptype = 0;
  360.  
  361. if (FType<10)
  362.   {
  363.   s_ftype = FType;
  364.   s_entrytype = 1;
  365.   }
  366. if ((FType >=10)&&(FType<=19))
  367.   {
  368.   s_ftype = FType % 10;
  369.   s_duptype = 1;
  370.   }
  371. if ((FType >=90)&&(FType<=99))
  372.   {
  373.   s_ftype = FType % 90;
  374.   s_disptype = 1;
  375.   }
  376. if ((FType >=100)&&(FType<=109))
  377.   {
  378.   s_ftype = FType % 100;
  379.   s_disptype = 1;
  380.   s_duptype = 1;
  381.   }
  382. }
  383.  
  384.  
  385.  
  386.  
  387.  
  388. void s_setcursor(unsigned char S)
  389. {
  390. union REGS in,out;
  391.  
  392. in.h.ah = 1;
  393. in.h.bh = 0;
  394.  
  395. if  (S==0) in.x.cx = 4096;
  396. if  ((S==1)||(S==3)) in.x.cx = 15;
  397. if  ((S==2)||(S==4)) in.x.cx = s_cursorold;
  398. if  (S==5) in.h.ah = 3;
  399.  
  400. int86(0x10,&in,&out);
  401. if (S==5) s_cursorold = out.x.cx;
  402. }
  403.  
  404.  
  405.  
  406. void s_init()
  407. {
  408. struct text_info r;
  409. int loop1;
  410.  
  411. s_cursorold = 1543;
  412.  
  413. if (S_FirstTime)
  414.   {
  415. #if defined (__MEDIUM__)
  416.   s_indx      = (s_rec_def *) malloc (sizeof(*s_indx));
  417.   s_record    = (s_rec_def *) malloc (sizeof(*s_record));
  418.   s_field     = (s_rec_def *) malloc (sizeof(*s_field));
  419. #else
  420.   s_indx      = (s_rec_def *) farmalloc (sizeof(*s_indx));
  421.   s_record    = (s_rec_def *) farmalloc (sizeof(*s_record));
  422.   s_field     = (s_rec_def *) farmalloc (sizeof(*s_field));
  423. #endif
  424.   s_setcursor (S_GETCURSOR);
  425.   S_FirstTime = 0;
  426. #ifdef MOUSE
  427.   s_initmouse();
  428. #endif
  429.   }
  430. s_setcursor(S_OFF);
  431. s_cursor=S_INVERSENORMAL;
  432. s_tabatendoffield = 1;
  433. s_enterafterfield = -1;
  434. s_clearifnotrightarrow = 0;
  435. s_usermask[0]=0;
  436. s_userhelp[0]=0;
  437. s_vrec=0;
  438. s_stbg=0;
  439. s_stfg=2;
  440. s_stlabelbg=7;
  441. s_stlabelfg=0;
  442. s_messbg=4;
  443. s_messfg=15;
  444. s_msg[0]=0;
  445. s_errorbg=4;
  446. s_errorfg=15;
  447. s_userbg=0;
  448. s_userfg=14;
  449. s_helpbg=7;
  450. s_helpfg=0;
  451. s_editmask[0]=0;
  452. s_autohelpmsg [0]=0;
  453. s_force_editmask=0;
  454. s_autohelp=0;
  455. s_autovalidate=0;
  456. s_sound=1;
  457. s_freq=300;
  458. s_dur=100;
  459. s_helpsound=1;
  460. s_helpfreq=300;
  461. s_helpdur=100;
  462. s_usersound=1;
  463. s_userfreq=300;
  464. s_userdur=100;
  465. s_errorsound=1;
  466. s_errorfreq=300;
  467. s_errordur=100;
  468. S_PosLastChar=0;
  469. s_changescreen=1;
  470. s_ch=0;
  471. s_point=-1;
  472. s_direction=1;
  473. s_f_key=0;
  474. s_recno=0;
  475. s_validateline=0;
  476. s_validatefield=-1;
  477. s_insertkey=0;
  478. s_deletekey=0;
  479. s_backspace=0;
  480. s_leftarrow=0;
  481. s_rightarrow=0;
  482. s_enterastab=0;
  483. s_delayscreen=0;
  484. s_delayed=0;
  485. s_fileOpen=0;
  486. S_ClearLine=0;
  487. memset(s_msg,0,81);
  488. memset(s_blanks,32,80);
  489. S_WorkArea = NULL;
  490. for (loop1=0;loop1<128;loop1++) S_BuffPtr[loop1]=NULL;
  491. s_blanks[80]=0;
  492.  
  493. strcpy(s_stline,"[Insert] [Caps] [Num Lock] [Scroll Lock]");
  494. strcpy(s_numericmaskmsg ," Enter numbers only ('0' thru '9') here.");
  495. strcpy(s_alphamaskmsg   ," Enter alpha only ('a'-'z','A'-'Z') only.");
  496. strcpy(s_numericfieldmsg," Enter numeric data here ('-','.','0'-'9') only.");
  497. strcpy(s_alphafieldmsg   ," Enter alpha only (BLANK,'a'-'z','A'-'Z') only.");
  498. strcpy(s_editmasktypes,"@2#3$4");
  499. strcpy(s_normattrib,s_msg);
  500. strcpy(s_newstr,s_msg);
  501. strcpy(s_padding,s_msg);
  502.        
  503. gettextinfo(&r);
  504. S_TextAttr = r.attribute;
  505. textmode(r.currmode);
  506. if (r.currmode==MONO) s_mono = 1; else s_mono = 0;
  507. if ((!s_indx)||(!s_record)||(!s_field))
  508.   {
  509.   cprintf("Unable to allocate far memory..\r\n");
  510.   exit (1);
  511.   }
  512. s_resetkeyflags();
  513. }
  514.  
  515.  
  516.  
  517.  
  518. void s_closescreenfile()
  519. {
  520. if  (S_FirstTime) s_init();
  521. if  (s_fileOpen)
  522.   {
  523.   fclose(s_file);
  524.   s_setcursor(S_NORMAL);
  525.   }
  526. if  (S_TextAttr) textattr(S_TextAttr);
  527. }
  528.  
  529.  
  530.  
  531. void s_loadscreenIndex()
  532. {
  533. int loop1,loop2,loop3;
  534.  
  535. if (fseek(s_file,0L,0) != 0)
  536.   {
  537.   puts("seek failed ");
  538.   exit (1);
  539.   }
  540.  
  541. if (fread(s_indx,sizeof(*s_indx),1,s_file) < 1)
  542.   {
  543.   puts("reload index failed ");
  544.   exit (1);
  545.   }
  546.  
  547. for (loop1=0;loop1 < s_indx->A.s_sfiled;loop1++)
  548.   {
  549.   loop2 = s_indx->A.s_name[loop1][0];
  550.   for (loop3=1;loop3 < (loop2+2);loop3++)
  551.     s_indx->A.s_name[loop1][loop3-1]=s_indx->A.s_name[loop1][loop3];
  552.     s_indx->A.s_name[loop1][loop2]=0;
  553.   }
  554. s_vrec = -999;
  555. }
  556.  
  557.  
  558.  
  559. void s_openscreenfile (char *scrfilename)
  560. {
  561. int loop1,loop2,loop3;
  562.  
  563. if (S_FirstTime) s_init();
  564. if (s_fileOpen) s_closescreenfile();
  565.  
  566. loop2 = 0;
  567. loop1 = 0;
  568. while (scrfilename[loop1] != 0)
  569.    {
  570.    if  (scrfilename[loop1++] == '.') loop2 = 1;
  571.    }
  572. if (!loop2) strcat(scrfilename,".Scr");
  573.  
  574. s_fileOpen = 1;
  575.  
  576. if ((s_file = fopen(scrfilename,"r+b")) == NULL)
  577.   {
  578.   cprintf("open up of %s failed\r\n",scrfilename);
  579.   exit (1);
  580.   }
  581. s_loadscreenIndex();
  582. }
  583.  
  584.  
  585.  
  586.  
  587. void s_beep(int t,int l)
  588. {
  589. if  (s_sound > 0)
  590.   {
  591.   sound(t);
  592.   delay(l);
  593.   nosound();
  594.   }
  595. }
  596.  
  597.  
  598.  
  599.  
  600.  
  601. void s_write (int Row, int Col, int Len,char *Source, char *Attribs)
  602. {
  603. int Ptr;
  604. for (Ptr=0;Ptr<=Len;Ptr++)
  605.   {
  606.   s_record->B.s_workarray[Ptr][0]=Source[Ptr];
  607.   s_record->B.s_workarray[Ptr][1]=Attribs[Ptr];
  608.   }
  609. puttext(Col,Row,Col+Len,Row,(char *)&s_record->B.s_workarray[0][0]);
  610. setmem(s_normattrib,sizeof(s_normattrib),0);
  611. /*
  612. s_putscrmem(Row,Col,(Len*2),(char *)&s_record->B.s_workarray[0][0]);
  613. for (Ptr=1;Ptr<81;Ptr++) s_normattrib[Ptr]=0;
  614. */
  615. }
  616.  
  617.  
  618.  
  619.  
  620. void s_displaymessage(int Bg,int Fg,char *Msg)
  621. {
  622. int Msg_Len,W,X,Y;
  623. if  (S_FirstTime) s_init();
  624. strcpy(s_padding,s_blanks);
  625. strcpy(s_workattrib,s_blanks);
  626. Msg_Len = strlen(Msg);
  627. Y       = (80 - Msg_Len)/2;
  628. W       = 0;
  629. for (X=0;X<80;X++)
  630.   {
  631.   if  (X<Y) s_workattrib[X] = 2;
  632.   else
  633.     if  (X>((Y+Msg_Len)-1)) s_workattrib[X] = 2;
  634.     else
  635.       {
  636.       s_workattrib[X]=(Bg*16)+Fg;
  637.       s_padding   [X]=Msg[W];
  638.       W++;
  639.       }
  640.   }
  641. if (strlen(Msg)>0) s_beep(s_freq,s_dur);
  642. s_write(25,1,80,s_padding,s_workattrib);
  643. s_msg[0]=0;
  644. }
  645.  
  646.  
  647.  
  648.  
  649.  
  650. void S_Store_Buf_Loc(char *ScrName, char *ScrBuff)
  651. {
  652. int X,Y,Z;
  653. if  (S_FirstTime) s_init();
  654. s_loadscreenIndex();
  655. for (X=0;X<s_indx->A.s_sfiled;X++)
  656.   {
  657.   if  (strcmp(strupr(ScrName),strupr(s_indx->A.s_name[X]))==0)
  658.     {
  659.     S_BuffPtr [X] = ScrBuff;
  660.     break;
  661.     }
  662.   }
  663. }
  664.  
  665.  
  666.  
  667.  
  668.  
  669. void s_loadscreen(char *ScrName)
  670. {
  671. int A,B,T,X,Y,Z;
  672. int RR;
  673. long rec;
  674. if  (S_FirstTime) s_init();
  675. if  (s_fileOpen)
  676.   {
  677.   s_loadscreenIndex();
  678.   s_num = -1;
  679.   for (X=0;X<s_indx->A.s_sfiled;X++)
  680.     {
  681.     if (strcmp(strupr(ScrName),strupr(s_indx->A.s_name[X]))==0)
  682.       {
  683.       s_num = X;
  684.       break;
  685.       }
  686.     }
  687.  
  688.   s_msg[0]=0;
  689.  
  690.   if  (S_BuffPtr[s_num]==NULL)
  691.     strcpy(s_msg,"<               > Buffer has not been initialized");
  692.  
  693.   if  (s_num==-1)
  694.     strcpy(s_msg,"<               > has not been found");
  695.  
  696.   if  (s_indx->A.s_compiledind[s_num]==0)
  697.     strcpy(s_msg,"<               > has not been compiled");
  698.  
  699.   }
  700. else
  701.   strcpy(s_msg,"<               > has not been opened.");
  702.  
  703. if  (s_msg[0]>0)
  704.   {
  705.   Y=1;
  706.   for (X=0;ScrName[X]!=NULL;X++) s_msg[Y++]=ScrName[X];
  707.   s_displaymessage(s_messbg,s_messfg,s_msg);
  708.   s_closescreenfile();
  709.   exit(1);
  710.   }
  711.  
  712. S_WorkArea = S_BuffPtr[s_num];
  713.  
  714. rec = (long) (s_indx->A.s_recordnumber[s_num])*sizeof(*s_record);
  715.  
  716. fseek(s_file,rec,0);
  717. fread(s_record,sizeof(*s_record),1,s_file);
  718.  
  719. s_firstfield = 0;
  720. if  (s_indx->A.s_fieldsrecno[s_num])
  721.   {
  722.   if  (s_changescreen)
  723.     {
  724.     rec = (long)(s_indx->A.s_fieldsrecno[s_num])*sizeof(*s_record);
  725.     fseek(s_file,rec,0);
  726.     fread(s_field,sizeof(*s_field),1,s_file);
  727.     }
  728.   s_firstfield = (s_indx->A.s_first[s_num])-1;
  729.   s_point      = 0;
  730.   for (X=0;X<s_indx->A.s_count[s_num];X++)
  731.     {
  732.     Y = s_field->C.s_fieldname[X][0];
  733.     s_getfieldtype(s_field->C.s_type[X]);
  734.     movmem(&s_field->C.s_fieldname[X][1],&s_field->C.s_fieldname[X][0],16);
  735.     s_field->C.s_fieldname[X][Y]=0;
  736.     s_fieldPtr[X] = s_point;
  737.  
  738.     if (s_ftype > 7)
  739.       s_point = s_point + s_field->C.s_len[X]+1;
  740.     else
  741.       s_point = s_point + sizeof((double)0);
  742.  
  743.     A = ((s_field->C.s_col[X]-1)+s_field->C.s_len[X])*2;
  744.     B = (s_field->C.s_row[X]-1)*160;
  745.  
  746.     for (Z=((s_field->C.s_col[X]-1)*2);Z<A;Z+=2)
  747.     s_record->B.s_video[B+Z]=32;
  748.     if (s_record->B.s_video[B+Z]==']')
  749.        s_record->B.s_video[B+Z]=32;
  750.     }
  751.   }
  752. if  (s_changescreen)
  753.   {
  754.   if  (s_delayscreen)
  755.     {
  756.     s_delayed = 1;
  757.     s_delayscreen = 0;
  758.     }
  759.   else
  760.   puttext(1,1,80,24,&s_record->B.s_video[0]);
  761.   s_point = s_firstfield;
  762.   }
  763. else
  764.   s_changescreen = 1;
  765. strcpy(s_curr.s_name,s_indx->A.s_name[s_num]);
  766. s_curr.s_number       = s_indx->A.s_number      [s_num];
  767. s_curr.s_recordnumber = s_indx->A.s_recordnumber[s_num];
  768. s_curr.s_fieldsrecno  = s_indx->A.s_fieldsrecno [s_num];
  769. s_curr.s_rangerecno   = s_indx->A.s_rangerecno  [s_num];
  770. s_curr.s_first        = s_indx->A.s_first       [s_num];
  771. s_curr.s_count        = s_indx->A.s_count       [s_num];
  772. s_curr.s_compiledind  = s_indx->A.s_compiledind [s_num];
  773. }
  774.  
  775.  
  776.  
  777.  
  778. void s_displayscreenfield(int R,int C,int T,int L,int DL,
  779.                           int DF,int DB,int NF,int NB,char *S)
  780. {
  781. int Attr,x,y,z,l;
  782. char Wk[80];
  783. double *Dbl;
  784. unsigned char BackColor, ForColor;
  785.  
  786. if  (S_FirstTime) s_init();
  787. Wk[0]=0;
  788. strcpy(s_editstr,S);
  789. DL = strlen(s_editstr);
  790. if (DL > L) 
  791.    {
  792.    DL = L;
  793.    s_editstr[L]=0;
  794.    }
  795.  
  796. if  (DL>0)
  797.   Attr = (DB * 16) + DF;
  798. else
  799.   Attr = (NB * 16) + NF;
  800.  
  801. setmem(s_normattrib,80,Attr);
  802. movmem(&s_blanks,&s_padding,80);
  803.  
  804. l = (L - strlen(s_editstr));
  805. s_padding[l]=0;
  806. if ((T > 89)&&(T<98)) T-=89;
  807.  
  808. if (T<8)
  809.   {
  810.   strcpy(Wk,s_padding);
  811.   strcat(Wk,s_editstr);
  812.   }
  813. else
  814.   {
  815.   strcat(Wk,s_editstr);
  816.   strcat(Wk,s_padding);
  817.   }
  818. s_write(R,C,L-1,Wk,s_normattrib);
  819. }
  820.  
  821.  
  822.  
  823.  
  824.  
  825. void S_FillScreen()
  826. {
  827. int  Sign,DecPos,s_prevfield,Screen_Point,p,x,y,z,C;
  828. unsigned char WorkAttrib;
  829. double dbl_work, rounding, *Dbl;
  830.  
  831. s_prevfield = s_point;
  832. s_point     = 0;
  833.  
  834. while (s_point < s_curr.s_count)
  835.   {
  836.   s_getfieldtype(s_field->C.s_type[s_point]);
  837.   s_decimal = s_ftype;
  838.  
  839.  
  840.  
  841.   if  (s_decimal > 7)
  842.     {
  843.     strcpy(s_editstr,(char*)&S_WorkArea[(int)s_fieldPtr[s_point]]);
  844.     s_field->C.s_datalen[s_point] = strlen(s_editstr);
  845.     }
  846.   else
  847.     {
  848.     dbl_work = *((double *)(S_WorkArea+s_fieldPtr[s_point]));
  849.     if (dbl_work!=0.0)
  850.       {
  851.       rounding = (dbl_work<0)?(0-S_Round[s_decimal]):S_Round[s_decimal];
  852.       strcpy(s_editstr,ecvt((dbl_work+rounding),20,&DecPos,&Sign));
  853.       while (DecPos<1)
  854.         {
  855.         s_insert(s_editstr,"0",0,20);
  856.         DecPos++;
  857.         }
  858.       s_insert(s_editstr,".",DecPos,80);
  859.       while (s_editstr[0]=='0') s_delete(s_editstr,0,1);
  860.       if  (Sign) s_insert(s_editstr,"-",0,80);
  861.       }
  862.     else
  863.       strcpy(s_editstr,".000000");
  864.     s_editstr[(s_pos(s_editstr,".")+s_decimal)]=0;
  865.     if  (s_editstr[0]==0)
  866.       {
  867.       s_editstr[0]='0';
  868.       s_editstr[1]=0;
  869.       }
  870.     x = strlen(s_editstr);
  871.     y = x - s_field->C.s_len[s_point];
  872.  
  873.     if  (y>0)
  874.       while (y--)
  875.         {
  876.         s_delete(s_editstr,0,1);
  877.         x--;
  878.         }
  879.     s_field->C.s_datalen[s_point] = x;
  880.     }
  881.  
  882.  
  883.  
  884.   Screen_Point = ((s_field->C.s_row[s_point]-1)*160)
  885.                + ((s_field->C.s_col[s_point]-1)*2);
  886.  
  887.   if  (s_field->C.s_datalen[s_point]>0)
  888.     WorkAttrib = (s_field->C.s_displaybg[s_point] * 16)
  889.                + s_field->C.s_displayfg[s_point];
  890.   else
  891.     WorkAttrib = (s_field->C.s_normalbg[s_point] * 16)
  892.                +  s_field->C.s_normalfg[s_point];
  893.  
  894.   p=0;
  895.   x=((s_field->C.s_len[s_point]))*2;
  896.   y=(s_field->C.s_datalen[s_point])*2;
  897.   if (s_decimal > 7)
  898.     {
  899.     C=0;
  900.     while (C<x)
  901.       {
  902.       s_record->B.s_video[Screen_Point+C]=(C<=y)? s_editstr[p++]:32;
  903.       C++;
  904.       s_record->B.s_video[Screen_Point+C]= WorkAttrib;
  905.       C++;
  906.       }
  907.     }
  908.   else
  909.     {
  910.     z=(x-y)-4;
  911.     C=0;
  912.     while (C<x)
  913.       {
  914.       s_record->B.s_video[Screen_Point+C]= (C>z)?s_editstr[p++]:32;
  915.       C++;
  916.       s_record->B.s_video[Screen_Point+C]= WorkAttrib;
  917.       C++;
  918.       }
  919.     }
  920.   s_point++;
  921.   }
  922. puttext(1,1,80,24,&s_record->B.s_video[0]);
  923. s_point = s_prevfield;
  924. }
  925.  
  926.  
  927.  
  928. void S_GetKey()
  929. {
  930.  int C_nt;
  931.  unsigned char Two_Keys, Toggle,KeyDetected;
  932. char ch;
  933. typedef union
  934.   {
  935.   int ch;
  936.   struct{
  937.     unsigned char lsb;
  938.     unsigned char msb;
  939.     } byte;
  940.   }keyindef;
  941.  
  942.  keyindef keyin;
  943. keyindef shiftstat;
  944.  
  945. s_resetkeyflags();
  946.  
  947. if  (s_errormsg[0]!=0)
  948.   {
  949.   s_freq   = s_errorfreq;
  950.   s_dur    = s_errordur;
  951.   s_sound  = s_errorsound;
  952.   s_messbg = s_errorbg;
  953.   s_messfg = s_errorfg;
  954.   movmem(s_errormsg,s_msg,81);
  955.   s_errormsg[0]=0;
  956.   }
  957. else
  958. if  (s_usermsg[0]!=0)
  959.   {
  960.   s_freq   = s_userfreq;
  961.   s_dur    = s_userdur;
  962.   s_sound  = s_usersound;
  963.   s_messbg = s_userbg;
  964.   s_messfg = s_userfg;
  965.   movmem(s_usermsg,s_msg,81);
  966.   s_usermsg[0]=0;
  967.   }
  968. else
  969. if  (s_autohelpmsg[0]!=0)
  970.   {
  971.   s_freq   = s_helpfreq;
  972.   s_dur    = s_helpdur;
  973.   s_sound  = s_helpsound;
  974.   s_messbg = s_helpbg;
  975.   s_messfg = s_helpfg;
  976.   movmem(s_autohelpmsg,s_msg,81);
  977.   s_autohelpmsg[0]=0;
  978.   };
  979.  
  980.  
  981.  
  982. if  (s_msg[0]!=0)
  983.   {
  984.   s_wait = 1;
  985.   s_displaymessage(s_messbg,s_messfg,s_msg);
  986.   S_ClearLine = 1;
  987.   }
  988.  
  989. #ifdef MOUSE
  990. if  ((s_ms->mouseactive)&&(s_mousevisable)) s_restoremouse();
  991. #endif
  992.  
  993. do
  994.   {
  995.   KeyDetected = 0;
  996.   keyin.ch    = 0;
  997. #ifdef MOUSE
  998.   while ((!KeyDetected)&&(!s_ms->mouseevent))
  999. #else
  1000.   while (!KeyDetected)
  1001. #endif
  1002.     {
  1003.     Toggle   = 0;
  1004.     Two_Keys = 0;
  1005. #ifdef MOUSE
  1006.     while ((!s_ms->mouseevent)&&(!KeyDetected)&&(!Two_Keys)&&(!Toggle))
  1007. #else
  1008.     while ((!KeyDetected)&&(!Two_Keys)&&(!Toggle))
  1009. #endif
  1010.       {
  1011.       shiftstat.ch = bioskey(2);
  1012.       C_nt = 0;
  1013.  
  1014.       if  (shiftstat.byte.lsb & 1) C_nt++;
  1015.       if  (shiftstat.byte.lsb & 2) C_nt++;
  1016.       if  (shiftstat.byte.lsb & 4) C_nt++;
  1017.       if  (shiftstat.byte.lsb & 8) C_nt++;
  1018.       if  (C_nt > 1) Two_Keys = 1;
  1019.  
  1020.       if (bioskey(1)!=0) KeyDetected = 1;
  1021.  
  1022.       if  (KeyDetected)
  1023.       keyin.ch = bioskey(0);
  1024.  
  1025.       s_rightshift = 0;
  1026.       s_leftshift  = 0;
  1027.       s_shift      = 0;
  1028.       s_scrolllock = 0;
  1029.       s_caps       = 0;
  1030.       s_insertmode = 0;
  1031.       s_numlock    = 0;
  1032.       s_ctrl       = 0;
  1033.       s_alt        = 0;
  1034.       C_nt         = 0;
  1035.  
  1036.       if  (shiftstat.byte.lsb & 1){s_rightshift = 1; C_nt++; s_shift = 1;}
  1037.       if  (shiftstat.byte.lsb & 2){s_leftshift  = 1; C_nt++; s_shift = 1;}
  1038.       if  (shiftstat.byte.lsb & 4){s_ctrl       = 1; C_nt++;}
  1039.       if  (shiftstat.byte.lsb & 8){s_alt        = 1; C_nt++;}
  1040.       if  (shiftstat.byte.lsb & 16)  s_scrolllock = 1;
  1041.       if  (shiftstat.byte.lsb & 32)  s_numlock    = 1;
  1042.       if  (shiftstat.byte.lsb & 64)  s_caps       = 1;
  1043.       if  (shiftstat.byte.lsb & 128) s_insertmode = 1;
  1044.       if  (Two_Keys)
  1045.         {
  1046.         keyin.ch= 0;
  1047.         s_ch = 0;
  1048.         s_fkey = 1;
  1049.         goto Exit;
  1050.         }
  1051.       if  ((s_showstatus)&&(!s_wait))
  1052.         {
  1053.         memset(s_stattrib,s_stcolor,40);
  1054.         if  (s_insertmode) memset(s_stattrib,s_stlabelcolor,8);
  1055.         if  (s_caps)       memset(&s_stattrib[9],s_stlabelcolor,6);
  1056.         if  (s_numlock)    memset(&s_stattrib[16],s_stlabelcolor,10);
  1057.         if  (s_scrolllock) memset(&s_stattrib[27],s_stlabelcolor,13);
  1058.         setmem(s_padding,80,32);
  1059.         setmem(s_workattrib,80,0);
  1060.         memmove((char *)&s_padding[21],s_stline,40);
  1061.         memmove((char *)&s_workattrib[21],s_stattrib,40);
  1062.         s_write(25,1,80,s_padding,s_workattrib);
  1063.     }
  1064.       }
  1065.     }
  1066.   }
  1067.  
  1068. #ifdef MOUSE
  1069. while ((keyin.ch == 0)&&(!s_ms->mouseevent));
  1070. if  ((s_ms->mouseactive)&&(s_mousevisable)) s_removemouse();
  1071. #else
  1072. while (keyin.ch == 0);
  1073. #endif
  1074.  
  1075. if  (S_ClearLine)
  1076.   {
  1077.   s_wait = 0;
  1078.   s_msg[0]=0;
  1079.   S_ClearLine = 0;
  1080.   s_displaymessage(s_messbg,s_messfg,s_msg);
  1081.   }
  1082.  
  1083. #ifdef MOUSE
  1084.   if  (s_ms->mouseevent) {keyin.ch=0;goto Exit;}
  1085. #endif
  1086. if  ((s_ctrl) && (keyin.byte.lsb > 0) && (keyin.byte.lsb < 29))
  1087.   {
  1088.   s_fkey = 1;
  1089.   ch     = keyin.byte.lsb + 64;
  1090.   goto Exit;
  1091.   }
  1092.  
  1093. ch = 0;
  1094. if (s_shift)
  1095.   {
  1096.   if  (keyin.byte.lsb==255)
  1097.       {
  1098.       s_fkey = 1;
  1099.       switch (keyin.byte.msb)
  1100.     {
  1101.     case 71: case 10: {s_home = 1; break;}
  1102.     case 79: case 11: {s_end  = 1; break;}
  1103.     case 73: case 12: {s_pgup = 1; break;}
  1104.     case 81: case 13: {s_pgdn = 1; break;}
  1105.     case 75: case 7 : {s_left = 1; break;}
  1106.     case 77: case 8 : {s_right= 1; break;}
  1107.     case 72: case 6 : {s_up   = 1; break;}
  1108.     case 80: case 9 : {s_down = 1; break;}
  1109.     case 82: case 2 : {s_ins  = 1; break;}
  1110.     case 83: case 4 : {s_del  = 1; break;}
  1111.     case 15         : {s_tab  = 1; break;}
  1112.     default :
  1113.       s_fkey = 0;
  1114.       }
  1115.       }
  1116.    else
  1117.       {
  1118.       s_fkey = 1;
  1119.       switch (keyin.byte.msb)
  1120.     {
  1121.     case 71: {s_home = 1; break;}
  1122.     case 79: {s_end  = 1; break;}
  1123.     case 73: {s_pgup = 1; break;}
  1124.     case 81: {s_pgdn = 1; break;}
  1125.     case 75: {s_left = 1; break;}
  1126.     case 77: {s_right= 1; break;}
  1127.     case 72: {s_up   = 1; break;}
  1128.     case 80: {s_down = 1; break;}
  1129.     case 82: {s_ins  = 1; break;}
  1130.     case 83: {s_del  = 1; break;}
  1131.     case 15: {s_tab  = 1; break;}
  1132.     default: s_fkey = 0;
  1133.     }
  1134.       }
  1135.   }
  1136.  
  1137. if  ((keyin.byte.lsb == 0)&&(keyin.byte.msb>0))
  1138.   {
  1139.   s_fkey = 1;
  1140.   switch (keyin.byte.msb)
  1141.     {
  1142.     case 59 : s_f1   = 1; break;
  1143.     case 60 : s_f2   = 1; break;
  1144.     case 61 : s_f3   = 1; break;
  1145.     case 62 : s_f4   = 1; break;
  1146.     case 63 : s_f5   = 1; break;
  1147.     case 64 : s_f6   = 1; break;
  1148.     case 65 : s_f7   = 1; break;
  1149.     case 66 : s_f8   = 1; break;
  1150.     case 67 : s_f9   = 1; break;
  1151.     case 68 : s_f10  = 1; break;
  1152.     case 133: s_f11  = 1; break;
  1153.     case 134: s_f12  = 1; break;
  1154.     case 84 : s_f1   = 1; break;
  1155.     case 85 : s_f2   = 1; break;
  1156.     case 86 : s_f3   = 1; break;
  1157.     case 87 : s_f4   = 1; break;
  1158.     case 88 : s_f5   = 1; break;
  1159.     case 89 : s_f6   = 1; break;
  1160.     case 90 : s_f7   = 1; break;
  1161.     case 91 : s_f8   = 1; break;
  1162.     case 92 : s_f9   = 1; break;
  1163.     case 93 : s_f10  = 1; break;
  1164.     case 135: s_f11  = 1; break;
  1165.     case 136: s_f12  = 1; break;
  1166.     case 94 : s_f1   = 1; break;
  1167.     case 95 : s_f2   = 1; break;
  1168.     case 96 : s_f3   = 1; break;
  1169.     case 97 : s_f4   = 1; break;
  1170.     case 98 : s_f5   = 1; break;
  1171.     case 99 : s_f6   = 1; break;
  1172.     case 100: s_f7   = 1; break;
  1173.     case 101: s_f8   = 1; break;
  1174.     case 102: s_f9   = 1; break;
  1175.     case 103: s_f10  = 1; break;
  1176.     case 137: s_f11  = 1; break;
  1177.     case 138: s_f12  = 1; break;
  1178.     case 104: s_f1   = 1; break;
  1179.     case 105: s_f2   = 1; break;
  1180.     case 106: s_f3   = 1; break;
  1181.     case 107: s_f4   = 1; break;
  1182.     case 108: s_f5   = 1; break;
  1183.     case 109: s_f6   = 1; break;
  1184.     case 110: s_f7   = 1; break;
  1185.     case 111: s_f8   = 1; break;
  1186.     case 112: s_f9   = 1; break;
  1187.     case 113: s_f10  = 1; break;
  1188.     case 139: s_f11  = 1; break;
  1189.     case 140: s_f12  = 1; break;
  1190.     case 71 : s_home = 1; break;
  1191.     case 79 : s_end  = 1; break;
  1192.     case 73 : s_pgup = 1; break;
  1193.     case 81 : s_pgdn = 1; break;
  1194.     case 75 : s_left = 1; break;
  1195.     case 77 : s_right= 1; break;
  1196.     case 72 : s_up   = 1; break;
  1197.     case 80 : s_down = 1; break;
  1198.     case 82 : s_ins  = 1; break;
  1199.     case 83 : s_del  = 1; break;
  1200.     case 15 : s_tab  = 1; break;
  1201.     case 119: s_home = 1; break;
  1202.     case 117: s_end  = 1; break;
  1203.     case 132: s_pgup = 1; break;
  1204.     case 118: s_pgdn = 1; break;
  1205.     case 115: s_left = 1; break;
  1206.     case 116: s_right= 1; break;
  1207.     case 16 : ch = 'Q'; break;
  1208.     case 17 : ch = 'W'; break;
  1209.     case 18 : ch = 'E'; break;
  1210.     case 19 : ch = 'R'; break;
  1211.     case 20 : ch = 'T'; break;
  1212.     case 21 : ch = 'Y'; break;
  1213.     case 22 : ch = 'U'; break;
  1214.     case 23 : ch = 'I'; break;
  1215.     case 24 : ch = 'O'; break;
  1216.     case 25 : ch = 'P'; break;
  1217.     case 30 : ch = 'A'; break;
  1218.     case 31 : ch = 'S'; break;
  1219.     case 32 : ch = 'D'; break;
  1220.     case 33 : ch = 'F'; break;
  1221.     case 34 : ch = 'G'; break;
  1222.     case 35 : ch = 'H'; break;
  1223.     case 36 : ch = 'J'; break;
  1224.     case 37 : ch = 'K'; break;
  1225.     case 38 : ch = 'L'; break;
  1226.     case 44 : ch = 'Z'; break;
  1227.     case 45 : ch = 'X'; break;
  1228.     case 46 : ch = 'C'; break;
  1229.     case 47 : ch = 'V'; break;
  1230.     case 48 : ch = 'B'; break;
  1231.     case 49 : ch = 'N'; break;
  1232.     case 50 : ch = 'M'; break;
  1233.     case 129: ch = '0'; break;
  1234.     case 120: ch = '1'; break;
  1235.     case 121: ch = '2'; break;
  1236.     case 122: ch = '3'; break;
  1237.     case 123: ch = '4'; break;
  1238.     case 124: ch = '5'; break;
  1239.     case 125: ch = '6'; break;
  1240.     case 126: ch = '7'; break;
  1241.     case 127: ch = '8'; break;
  1242.     case 128: ch = '9'; break;
  1243.     case 130: ch = '-'; break;
  1244.     case 131: ch = '='; break;
  1245.     case 114: ch = '*'; break;
  1246.     }
  1247.   }
  1248. if  ((keyin.byte.msb != 0) && (!s_alt))
  1249.   {
  1250.   switch (keyin.byte.lsb)
  1251.     {
  1252.     case   9 : {s_tab   = 1;break;}
  1253.     case   8 : {s_bksp  = 1;break;}
  1254.     case 127 : {s_bksp  = 1;break;}
  1255.     case  27 : {s_esc   = 1;break;}
  1256.     case  13 : {s_enter = 1;break;}
  1257.     case 255 : break;
  1258.     default  : ch = keyin.byte.lsb;
  1259.     }
  1260.   if  ((s_tab)||(s_bksp)||(s_esc)||(s_enter)) s_fkey = 1;
  1261.   }
  1262. Exit:
  1263. s_ch = ch;
  1264. if ((s_enter)&&(s_enterastab)) {s_tab=1;s_enter=0;}
  1265. if (s_left)  s_leftarrow = 1;
  1266. if (s_right) s_rightarrow = 1;
  1267. if (s_bksp)  s_backspace = 1;
  1268. if (s_ins)   s_insertkey = 1;
  1269. if (s_del)   s_deletekey = 1;
  1270. }
  1271.  
  1272.  
  1273.  
  1274.  
  1275.  
  1276.  
  1277. void S_Get_Field_Value(int s_point)
  1278. {
  1279. int    DecPos,Sign,x,y,z;
  1280.  double dbl_work,rounding;
  1281.  
  1282. s_getfieldtype(s_field->C.s_type[s_point]);
  1283. s_decimal = s_ftype;
  1284.  
  1285. if  (s_decimal > 7)
  1286.   strcpy(s_editstr,(char*)&S_WorkArea[(int)s_fieldPtr[s_point]]);
  1287. else
  1288.   {
  1289.   dbl_work = *((double *)(S_WorkArea+s_fieldPtr[s_point]));
  1290.  
  1291.   if  (dbl_work!=0)
  1292.     {
  1293.     rounding = (dbl_work<0)?(0-S_Round[s_decimal]):S_Round[s_decimal];
  1294.     strcpy(s_editstr,(char *)ecvt((dbl_work+rounding),20,&DecPos,&Sign));
  1295.     while (DecPos<0)
  1296.       {
  1297.       s_insert(s_editstr,"0",0,20);
  1298.       DecPos++;
  1299.       }
  1300.     s_insert(s_editstr,".",DecPos,80);
  1301.     while (s_editstr[0]=='0') s_delete(s_editstr,0,1);
  1302.     if  (Sign) s_insert(s_editstr,"-",0,80);
  1303.     }
  1304.   else
  1305.     strcpy(s_editstr,".000000");
  1306.  
  1307.   s_editstr[(s_pos(s_editstr,".")+s_decimal)]=0;
  1308.  
  1309.   if  (s_editstr[0]==0)
  1310.     {
  1311.     s_editstr[0]='0';
  1312.     s_editstr[1]=0;
  1313.     }
  1314.   x = strlen(s_editstr);
  1315.   y = x - s_field->C.s_len[s_point];
  1316.  
  1317.   if  (y>0)
  1318.     while (y--)
  1319.       {
  1320.       s_delete(s_editstr,0,1);
  1321.       x--;
  1322.       }
  1323.   s_field->C.s_datalen[s_point] = x;
  1324.   }
  1325. }
  1326.  
  1327.  
  1328.  
  1329.  
  1330. void S_PreEdit (int HR, int HL)
  1331. {
  1332. struct date S_Date;
  1333. char workstr[8];
  1334. int X,Y,Z;
  1335. long rec;
  1336. setmem(s_initialvalue,80,0);
  1337. setmem(workstr,8,0);
  1338. s_userhelp[0]=0;
  1339. s_usermask[0]=0;
  1340. s_force_editmask=0;
  1341. X=0;
  1342. while ((HR>0) && (X<3))
  1343.   {
  1344.   if (s_vrec!=HR)
  1345.       {
  1346.     rec = (long) HR * sizeof(*s_record);
  1347.     s_vrec  = HR;
  1348.     fseek(s_file,rec,0);
  1349.     fread(s_indx,sizeof(*s_indx),1,s_file);
  1350.     }
  1351.   X++;
  1352.   Y = s_indx->D.s_rangelist[HL-1][0];
  1353.   setmem(&s_indx->D.s_rangelist[HL-1][Y+1],78-Y,0);
  1354.   if  (s_indx->D.s_rangelist[HL-1][1]=='H')
  1355.     {
  1356.     strcpy(&s_userhelp[0],&s_indx->D.s_rangelist[HL-1][6]);
  1357.     if (s_autohelp)
  1358.        strcpy(s_autohelpmsg,s_userhelp);
  1359.     }
  1360.  
  1361.   if ((s_indx->D.s_rangelist[HL-1][1]=='E')&&
  1362.       (s_indx->D.s_rangelist[HL-1][2]=='D'))
  1363.     if (s_indx->D.s_rangelist[HL-1][6]=='F')
  1364.       {
  1365.       s_force_editmask = 1;
  1366.       strcpy(s_usermask,&s_indx->D.s_rangelist[HL-1][9]);
  1367.       }
  1368.     else
  1369.       {
  1370.       strcpy(s_usermask,&s_indx->D.s_rangelist[HL-1][7]);
  1371.       }
  1372.  
  1373.   if ((s_indx->D.s_rangelist[HL-1][1]=='S')&&
  1374.       (s_indx->D.s_rangelist[HL-1][2]=='E'))
  1375.     {
  1376.     s_indx->D.s_rangelist[HL-1][Y]=0;
  1377.     strcpy(s_initialvalue,&s_indx->D.s_rangelist[HL-1][6]);
  1378.     movmem(&s_initialvalue[0],&workstr[0],7);
  1379.     if (strcmp(strupr(workstr),"SYSDATE")==0)
  1380.       {
  1381.       getdate(&S_Date);
  1382.       X=(int)S_Date.da_mon;
  1383.       itoa(X,&s_initialvalue[0],10);
  1384.       if (s_initialvalue[1]==0)
  1385.         {
  1386.         s_initialvalue[1]=s_initialvalue[0];
  1387.         s_initialvalue[0]='0';
  1388.         }
  1389.       s_initialvalue[2]='/';
  1390.       X=(int)S_Date.da_day;
  1391.       itoa(X,&s_initialvalue[3],10);
  1392.       if (s_initialvalue[4]==0)
  1393.         {
  1394.         s_initialvalue[4]=s_initialvalue[3];
  1395.         s_initialvalue[3]='0';
  1396.         }
  1397.       s_initialvalue[5]='/';
  1398.       X=(int)S_Date.da_year;
  1399.       itoa(X,&s_initialvalue[6],10);
  1400.       }
  1401.     }
  1402.   HR = s_indx->D.s_rangerec [HL-1];
  1403.   HL = s_indx->D.s_rangeline[HL-1];
  1404.   }
  1405. }
  1406.  
  1407.  
  1408.  
  1409.  
  1410. void Set_Mask(int L)
  1411. {
  1412. int X;
  1413. X  = 0;
  1414. s_helppos = -1;
  1415. FirstPosition = -1;
  1416. LastPosition = -1;
  1417. while (X <= L)
  1418.   {
  1419.   if (memchr(s_editmasktypes,s_editmask[X],6)==NULL)
  1420.      s_workstr[X] = s_editmask[X];
  1421.   else
  1422.       {
  1423.       LastPosition = X;
  1424.       if  (s_helppos==-1) s_helppos=X;
  1425.       if  (FirstPosition==-1) FirstPosition=X;
  1426.       }
  1427.   X++;
  1428.   }
  1429. }
  1430.  
  1431.  
  1432. void Adjust_Pos(int L)
  1433. {
  1434. int X,
  1435.     New_Pos;
  1436. if (CursorDirection != 0)
  1437.    {
  1438.    X       = (s_str_pos<-1) ?-1:s_str_pos;
  1439.    if (!(memchr(s_editmasktypes,s_editmask[X],6)==NULL))
  1440.       New_Pos = -1;
  1441.    else
  1442.       New_Pos = X;
  1443.    while (New_Pos == -1)
  1444.       {
  1445.       X = X + CursorDirection;
  1446.       if (!(memchr(s_editmasktypes,s_editmask[X],6)==NULL))
  1447.       New_Pos = X;
  1448.       else
  1449.       if  ((CursorDirection==-1)&&(X<0))
  1450.           CursorDirection = 1;
  1451.       else
  1452.       if  ((CursorDirection==1)&&(X==L))
  1453.           CursorDirection =-1;
  1454.       }
  1455.    s_str_pos = New_Pos;
  1456.    CursorDirection = 0;
  1457.    }
  1458. }
  1459.  
  1460. void s_editstring (int R, int C, int T, int L, int F,
  1461.            int B, int DF, int DB, int NF, int NB,
  1462.            char *S)
  1463. {
  1464. int    x,y,z;
  1465.  char   s_curstring[160];
  1466. double DoubleWork;
  1467. long   rec;
  1468. if  (S_FirstTime) s_init();
  1469.  
  1470. if  (T > 7)
  1471.     {
  1472.     strcpy(s_editmask,s_usermask);
  1473.     if (s_editmask[0]==0)
  1474.        {
  1475.        if  (T == 8)
  1476.        setmem(s_editmask,L,'@');
  1477.        else
  1478.        setmem(s_editmask,L,'$');
  1479.        }
  1480.     else
  1481.     if  (strlen(s_editmask) < L)
  1482.         setmem(&s_editmask[strlen(s_editmask)],L-strlen(s_editmask),32);
  1483.     s_editmask[L]=0;
  1484.     }
  1485. else
  1486.     s_editmask[0]=0;
  1487.  
  1488. if  ((s_pos("0.000000",S)==0)||(s_pos(".000000",S)==0)) S[0]=0;
  1489.  
  1490. strcpy(s_ins_str," ");
  1491.  
  1492. s_attrib  = (B*16)+F;
  1493.  
  1494. if ((s_cursor==S_OFF)||(s_cursor==S_INVERSEBOLD)||(s_cursor==S_INVERSENORMAL))
  1495.   {
  1496.   if (s_attrib > 16)
  1497.      s_reverse = (F>0)? 15:F;
  1498.   else
  1499.      s_reverse = (F==7)? 127:112+F;
  1500.   }
  1501. else
  1502.   s_reverse = s_attrib;
  1503.  
  1504. s_stlabelcolor = S_SetColor(s_stlabelbg,s_stlabelfg);
  1505. s_stcolor      = S_SetColor(s_stbg,s_stfg);
  1506.  
  1507. strcpy(s_workstr,s_blanks);
  1508.  
  1509. x = 0;
  1510. strcpy(s_workstr,S);
  1511. s_workstr[strlen(S)]=32;
  1512. s_workstr[L]=0;
  1513. s_str_pos = -1;
  1514.  
  1515. if  (s_editmask[0]!=0)
  1516.     Set_Mask(L); 
  1517. else 
  1518.     {FirstPosition=0;
  1519.      LastPosition= L-1;
  1520.      s_helppos=0;}
  1521.  
  1522. if  (S_PosLastChar)
  1523.   {
  1524.   x = L-1;
  1525.   s_str_pos = -2;
  1526.   while (s_str_pos == -2)
  1527.      {
  1528.      if (s_editmask[0]!=0)
  1529.     {
  1530.     if (memchr(s_editmasktypes,s_editmask[x],6)==NULL) x--;
  1531.     else
  1532.     if (s_workstr[x]==32) x--;
  1533.     else
  1534.     s_str_pos = x;
  1535.     }
  1536.      else
  1537.     {
  1538.     if (s_workstr[x]==32) x--;
  1539.     else
  1540.     s_str_pos = x;
  1541.     }
  1542.      }
  1543.   }
  1544. else
  1545.   if (s_nextpos > -1)
  1546.      s_str_pos = s_nextpos - 1;
  1547.   else
  1548.      s_str_pos = -1;
  1549. s_nextpos = 0;
  1550.  
  1551. if ((s_str_pos == -1)&&
  1552.     (s_clearifnotrightarrow)&&
  1553.     (strlen(S)>0))
  1554.     s_clearnotright = 1;
  1555. else
  1556.     s_clearnotright = 0;
  1557.  
  1558. CursorDirection =  1;
  1559.  
  1560. s_setcursor(s_cursor);
  1561. s_resetkeyflags();
  1562. #ifdef MOUSE
  1563. while ((!s_enter)&&(!s_tab)&&(!s_esc)&&(!s_fkey)&&(!s_ms->mouseevent))
  1564. #else
  1565. while ((!s_enter)&&(!s_tab)&&(!s_esc)&&(!s_fkey))
  1566. #endif
  1567.   {
  1568.   setmem(s_curstring,160,0);
  1569.   x = 0;
  1570.   y = 0;
  1571.   while (x<L)
  1572.     {
  1573.     y = (x*2);
  1574.     s_curstring[y]   =s_workstr[x];
  1575.     s_curstring[y+1] =s_attrib;
  1576.     x++;
  1577.     }
  1578.   if  (T<8)
  1579.     {
  1580.     s_str_pos += CursorDirection;
  1581.     if  (s_str_pos < 0) s_str_pos=0;
  1582.     if  (s_str_pos >= L) s_str_pos = strlen(s_workstr);
  1583.     if  (s_str_pos >= L) s_str_pos=L-1;
  1584.     CursorDirection = 0;
  1585.     }
  1586.   else
  1587.     Adjust_Pos(L);
  1588.  
  1589.   s_curstring[((s_str_pos)*2)+1]=s_reverse;
  1590.   puttext(C,R,(C-1)+L,R,(char *)&s_curstring);
  1591.  
  1592.   gotoxy(((C)+s_str_pos),R);
  1593.   s_lastpos = s_str_pos-1;
  1594.  
  1595.   S_GetKey();
  1596.  
  1597.   s_curstring[((s_str_pos)*2)+1]=s_attrib;
  1598.   puttext(C,R,((C-1)+L),R,(char *)&s_curstring);
  1599.  
  1600.   if  (s_ins)
  1601.     {
  1602.     s_ins  = 0;
  1603.     s_fkey = 0;
  1604.     continue;
  1605.     }
  1606.  
  1607.   if  ((!s_ctrl)&&(!s_alt))
  1608.     {
  1609.     if  ((s_left)||(s_bksp))
  1610.       {
  1611.       if  (s_str_pos > FirstPosition)
  1612.     {
  1613.     if  (s_bksp) s_del = 1;
  1614.     CursorDirection = -1;
  1615.     }
  1616.       else
  1617.         {
  1618.     if  (s_left)
  1619.       {
  1620.           s_shift = 1;
  1621.           s_tab   = 1;
  1622.           S_PosLastChar = 1;
  1623.           }
  1624.         }
  1625.       s_left  = 0;
  1626.       s_bksp  = 0;
  1627.       s_fkey  = 0;
  1628.       if  (!s_del) continue;
  1629.       }
  1630.  
  1631.     if  (s_right)
  1632.       {
  1633.       if  (s_clearnotright)
  1634.       s_clearnotright = 0;
  1635.       else
  1636.       if  (s_str_pos < LastPosition)
  1637.     {
  1638.     if  (T>7) CursorDirection = 1;
  1639.     else
  1640.       {
  1641.       if  (!(s_str_pos<(s_strlen(s_workstr)-1)))
  1642.           s_tab = 1;
  1643.       else CursorDirection = 1;
  1644.       }
  1645.     }
  1646.       else
  1647.     s_tab = 1;
  1648.       s_shift = 0;
  1649.       s_right = 0;
  1650.       s_fkey  = 0;
  1651.       continue;
  1652.       }
  1653.  
  1654.     if  (s_del)
  1655.       {
  1656.       if  (s_strlen(s_workstr)>-1)
  1657.     {    
  1658.     if  (s_clearnotright)
  1659.         s_clearnotright = 0;
  1660.     if (s_shift)
  1661.            {
  1662.        setmem(&s_workstr[s_str_pos],(L-s_str_pos)+1,32);
  1663.        if  (s_editmask[0]>0) Set_Mask(L);
  1664.        }
  1665.     else
  1666.       {
  1667.       z = FirstPosition;
  1668.       if  (CursorDirection==-1)
  1669.           {
  1670.           x = s_str_pos;
  1671.           z = s_str_pos-1;
  1672.               if (T>7)
  1673.                  while ((z>=FirstPosition)&&
  1674.             (memchr(s_editmasktypes,s_editmask[z],6)==NULL))
  1675.             z--;
  1676.           }
  1677.       if (z>=FirstPosition)
  1678.          {
  1679.          if ((s_str_pos<L)&&(s_editmask[0]))
  1680.            {          
  1681.            if  (CursorDirection!=-1)
  1682.            {
  1683.            x = s_str_pos+1;
  1684.            z = s_str_pos;
  1685.            }
  1686.            while (x < L)
  1687.          {
  1688.          if (memchr(s_editmasktypes,s_editmask[x],6)!=NULL)
  1689.            {
  1690.            if  (s_editmask[x] != s_editmask[z])
  1691.              {
  1692.              s_workstr[z] = 32;
  1693.              x = L;
  1694.              }
  1695.            else
  1696.              {
  1697.              s_workstr[z] = s_workstr[x];
  1698.              z++;
  1699.              while (memchr(s_editmasktypes,s_editmask[z],6)==NULL) z++;
  1700.              }
  1701.            }
  1702.          x++;
  1703.          }
  1704.            if  (x >= L) s_workstr[z] = 32;
  1705.            }
  1706.        else
  1707.            {
  1708.            s_delete(s_workstr,(s_str_pos+CursorDirection),1);
  1709.            strcat(s_workstr," ");
  1710.            }
  1711.         }
  1712.           }
  1713.         }
  1714.       s_fkey = 0;
  1715.       continue;
  1716.       }
  1717.  
  1718.     if  ((s_str_pos==s_helppos)&&(s_ch=='?'))
  1719.       {
  1720.       if  (s_userhelp[0]==0)
  1721.       strcpy(s_autohelpmsg," No HELP available for this field. ");
  1722.       else
  1723.       strcpy(s_autohelpmsg,s_userhelp);
  1724.       s_ch = 0;
  1725.       }
  1726.  
  1727.  
  1728.     if  ((s_ch > 31)&&(s_ch < 128))
  1729.       {
  1730.       if  (T<8)
  1731.         {
  1732.     if (((s_ch=='-')&&(s_str_pos>0))||
  1733.         ((s_ch=='.')&&(T==0))||
  1734.         ((s_ch!='.')&&(s_ch!='-')&&(!isdigit(s_ch))))
  1735.       s_ch = 0;
  1736.     if  ((s_ch=='.')&&(strchr(s_workstr,'.')))
  1737.         {
  1738.         y=0;
  1739.         x=0;
  1740.         z=0;
  1741.         while (y < L)
  1742.            {
  1743.            if (y==s_str_pos) s_newstr[y++]='.';
  1744.            else
  1745.            if (s_workstr[x]=='.') x++;
  1746.            else
  1747.            {
  1748.            s_newstr[y] = s_workstr[x];
  1749.            x++;
  1750.            y++;
  1751.            }
  1752.            }
  1753.         CursorDirection = 1;
  1754.         s_ch = 0;
  1755.         strcpy(s_workstr,s_newstr);
  1756.         }
  1757.     if (s_ch==0)
  1758.        strcpy(s_errormsg,s_numericfieldmsg);
  1759.     }
  1760.  
  1761.       if  (T==8)
  1762.     {
  1763.     if (!isalpha(s_ch))
  1764.       {
  1765.       if (s_editmask[0]>0)
  1766.         {
  1767.         if ((s_editmask[s_str_pos-1]=='@')||
  1768.         (s_editmask[s_str_pos-1]=='2'))
  1769.               {
  1770.               s_ch = 0;
  1771.           strcpy(s_errormsg,s_alphamaskmsg);
  1772.           }
  1773.         }
  1774.       else
  1775.         if (s_ch!=32)
  1776.            {
  1777.            s_ch = 0;
  1778.            strcpy(s_errormsg,s_alphafieldmsg);
  1779.            }
  1780.       }
  1781.     }
  1782.  
  1783.       if ((T==9)&&(s_editmask[0]>0))
  1784.         {
  1785.     if  ((s_editmask[s_str_pos]=='@')||(s_editmask[s_str_pos]=='2'))
  1786.       {
  1787.       if (!isalpha(s_ch))
  1788.         {
  1789.         strcpy(s_errormsg,s_alphamaskmsg);
  1790.         s_ch  =0;
  1791.         }
  1792.       }
  1793.     if  ((s_editmask[s_str_pos]=='#')||(s_editmask[s_str_pos]=='3'))
  1794.       {
  1795.       if  (!isdigit(s_ch))
  1796.         {
  1797.         strcpy(s_errormsg,s_numericmaskmsg);
  1798.         s_ch=0;
  1799.         }
  1800.       }
  1801.     }
  1802.  
  1803.       if  (s_ch>0)
  1804.         {
  1805.     if  ((s_clearnotright)&&(s_str_pos==FirstPosition))
  1806.         { 
  1807.         setmem(s_workstr,L,32);
  1808.         s_clearnotright = 0;
  1809.         if  (s_editmask[0]) Set_Mask(L);
  1810.         }
  1811.     if  (s_insertmode)
  1812.           {
  1813.       if  (s_str_pos <= LastPosition)
  1814.         {
  1815.         if (s_editmask[0]>0)
  1816.           {
  1817.           y = 0;
  1818.           x = s_str_pos;
  1819.               z = x;
  1820.               while (((memchr(s_editmasktypes,s_editmask[x],6)==NULL)||
  1821.                      (s_editmask[x]==s_editmask[z]))&&(x < L)) x++;
  1822.               y = x-1;
  1823.           while (!(y<s_str_pos))
  1824.         {
  1825.         if  (memchr(s_editmasktypes,s_editmask[y],6)==NULL) y--;
  1826.         else
  1827.           if  ((s_editmask[z]!=s_editmask[x])||
  1828.                (memchr(s_editmasktypes,s_editmask[x],6)==NULL))
  1829.             {x--;y=x-1;}
  1830.           else
  1831.             {
  1832.             s_workstr[x]=s_workstr[y];
  1833.             x--;
  1834.             y--;
  1835.             }
  1836.         }
  1837.           s_workstr[s_str_pos] = s_ch;
  1838.               }
  1839.             else
  1840.               {
  1841.               s_ins_str[0]=s_ch;
  1842.               s_ins_str[1]=0;
  1843.           s_insert(s_workstr,s_ins_str,(s_str_pos),L);
  1844.           s_workstr[L]=0;
  1845.           }
  1846.         if (s_str_pos < LastPosition) 
  1847.            CursorDirection = 1;
  1848.         else
  1849.           {
  1850.           if (s_tabatendoffield) s_tab  =1;
  1851.           s_shift=0;
  1852.           }
  1853.             }
  1854.           }
  1855.         else
  1856.           {
  1857.       s_workstr[s_str_pos]=s_ch;
  1858.       if  (s_str_pos < LastPosition) 
  1859.         CursorDirection=1;
  1860.       else
  1861.         {
  1862.         if (s_tabatendoffield) s_tab  =1;
  1863.         s_shift=0;
  1864.         }
  1865.       }
  1866.     }
  1867.       }
  1868.  
  1869.     if  ((!s_enter)&&(s_tab))
  1870.       {
  1871.       if ((s_shift)&&(s_str_pos>0))
  1872.     {
  1873.     x=s_str_pos-1;
  1874.     s_str_pos=0;
  1875.     if  ((x>0)&&(s_editmask[0]>0))
  1876.       {
  1877.       if  (memchr(s_editmasktypes,s_editmask[x],6)!=NULL)
  1878.         while ((x>-1)&&(memchr(s_editmasktypes,s_editmask[x],6)!=NULL))
  1879.           x--;
  1880.       while ((x>-1)&&(memchr(s_editmasktypes,s_editmask[x],6)==NULL)) 
  1881.           x--;
  1882.       while ((x>-1)&&(memchr(s_editmasktypes,s_editmask[x],6)!=NULL))
  1883.           x--;
  1884.           s_str_pos = x+1;
  1885.           }
  1886.         s_tab=0;
  1887.         s_fkey=0;
  1888.         }
  1889.       if ((!s_shift)&&(s_str_pos<L))
  1890.         {
  1891.         if  (s_editmask[0]>0)
  1892.           {
  1893.           x = s_str_pos;
  1894.       while ((x<L-1)&&(memchr(s_editmasktypes,s_editmask[x],6)!=NULL))
  1895.           x++;
  1896.       while ((x<L-1)&&(memchr(s_editmasktypes,s_editmask[x],6)==NULL))
  1897.           x++;
  1898.       if (x<(L-1)) 
  1899.          {
  1900.          s_str_pos = x;
  1901.          s_tab=0;
  1902.          s_fkey=0;
  1903.          }
  1904.       }
  1905.     }
  1906.       }
  1907.  
  1908.     if  (s_force_editmask)
  1909.       {
  1910.       if  ((s_enter)||(s_tab))
  1911.         {
  1912.         x = -1;
  1913.         while (x < L)
  1914.           {
  1915.           x++;
  1916.           if ((!(memchr(s_editmasktypes,s_editmask[x],4)==NULL))&&
  1917.               (s_workstr[x]==32))
  1918.             {
  1919.             s_str_pos = x;
  1920.         strcpy(s_errormsg,"'");
  1921.         s_errormsg[0]=39;
  1922.         s_errormsg[1]=s_ch;
  1923.         s_errormsg[2]=0;
  1924.         strcat(s_errormsg,"' does not fit edit mask ");
  1925.         strcat(s_errormsg,s_editmask);
  1926.             s_enter= 0;
  1927.             s_tab  = 0;
  1928.             s_fkey = 0;
  1929.             x      = L;
  1930.             }
  1931.           }
  1932.         }
  1933.       }
  1934.     }
  1935.   }
  1936.  
  1937. s_setcursor(S_OFF);
  1938. strcpy(s_editstr,s_workstr);
  1939. if  (s_strlen(s_workstr)>-1) s_editstr[s_strlen(s_workstr)-1]=0;
  1940. if  (T<8)
  1941.   {
  1942.   y=strlen(s_editstr);
  1943.   while ((y>0)&&(s_editstr[y-1]<33))
  1944.     {
  1945.     s_editstr[y-1]=0;
  1946.     y--;
  1947.     }
  1948.  
  1949.   if   (strchr(s_editstr,'.')==NULL) strcat(s_editstr,".000000");
  1950.   else strcat(s_editstr,"000000");
  1951.  
  1952.   s_editstr[s_pos(s_editstr,".")+T]=0;
  1953.   s_str_pos = (s_editstr[0]=='-')?1:0;
  1954.   while ((s_editstr[0]==32)||(strlen(s_editstr)>L))
  1955.     s_delete(s_editstr,s_str_pos,1);
  1956.   if  (strcmp("-",s_editstr)==0) s_editstr[0]=0;
  1957.   if  (s_editstr[0]==0)
  1958.     {
  1959.     s_editstr[0]='0';
  1960.     s_editstr[1]=0;
  1961.     }
  1962.   }
  1963. if  (s_editmask[0]>0)
  1964.   {
  1965.   y=0;
  1966.   for (x=0;((x<L)&&(y==0));x++)
  1967.     {
  1968.     if ((s_editstr[x]>32)&&(memchr(s_editmasktypes,s_editmask[x],6)!=NULL))
  1969.       y++;
  1970.     }
  1971.   if  (y==0) setmem(s_editstr,L,0);
  1972.   }
  1973. else
  1974.   {
  1975.   x = L-1;
  1976.   while ((x>-1)&&(s_editstr[x]<33)) s_editstr[x--]=0;
  1977.   }
  1978. setmem(s_autohelpmsg,81,0);
  1979. setmem(s_editmask,81,0);
  1980. movmem(s_editstr,s_newstr,L+1);
  1981. movmem(s_editstr,S,L+1);
  1982. s_displayscreenfield(R,C,T,L,strlen(s_newstr),DF,DB,NF,NB,s_newstr);
  1983. movmem(s_newstr,s_editstr,L+1);
  1984. }
  1985.  
  1986.  
  1987. unsigned char s_setdisplayon(int X)
  1988. {
  1989. int Y,Z;
  1990. if  (X < 0) return 4;
  1991. else
  1992.   {
  1993.   Y=0;
  1994.   for (Z=0;Z<s_curr.s_count;Z++)
  1995.      if (s_field->C.s_type[Z]<10) Y++;
  1996.   if (Y==0)  return 1;
  1997.   else
  1998.   if (X>s_curr.s_count) return 2;
  1999.   else
  2000.   if (s_field->C.s_type[X] > 19)  return 3;
  2001.   else
  2002.   if (s_field->C.s_type[X] < 20)
  2003.      {
  2004.      s_field->C.s_type[X] += 90;
  2005.      return 0;
  2006.      }
  2007.   else
  2008.      return 0;
  2009.   }
  2010. }
  2011.  
  2012.  
  2013.  
  2014.  
  2015. unsigned char s_setdisplayoff(int X)
  2016. {
  2017. if (X < 0) return 4;
  2018. else
  2019. if (X>s_curr.s_count) return 1;
  2020. else
  2021. if (s_field->C.s_type[X] < 20)  return 3;
  2022. else
  2023.   {
  2024.   if (s_field->C.s_type[X] > 19)
  2025.      s_field->C.s_type[X] -= 90;
  2026.   return 0;
  2027.   }
  2028. }
  2029.  
  2030.  
  2031.  
  2032.  
  2033. unsigned char s_isdupe(int S_Index)
  2034. {
  2035. if (((S_Index > -1)&&(S_Index < s_curr.s_count))&&
  2036.     (((s_field->C.s_type[S_Index]>=10) &&(s_field->C.s_type[S_Index]<=19))||
  2037.      ((s_field->C.s_type[S_Index]>=100)&&(s_field->C.s_type[S_Index]<=109))))
  2038.   return 1;
  2039. else
  2040.   return 0;
  2041. }
  2042.  
  2043.  
  2044.  
  2045.  
  2046. unsigned char s_setdupe(int S_Index)
  2047. {
  2048. int X,Y;
  2049. Y = 0;
  2050. s_setdupefields = 0;
  2051. for (X=0;X<s_curr.s_count;X++)
  2052.   if (s_field->C.s_type[X]<10) Y++;
  2053.  
  2054. if ((!((S_Index > -1)&&(S_Index < s_curr.s_count)))||
  2055.     (((s_field->C.s_type[S_Index]>=10) &&(s_field->C.s_type[S_Index]<=19))||
  2056.      ((s_field->C.s_type[S_Index]>=100)&&(s_field->C.s_type[S_Index]<=109))))
  2057.     {
  2058.     s_field->C.s_type[S_Index] -=10;
  2059.     return 0;
  2060.     }
  2061. else
  2062.   {
  2063.   if ((Y > 1)||(s_field->C.s_type[S_Index]>9))
  2064.     {
  2065.     s_field->C.s_type[S_Index] +=10;
  2066.     if  (s_field->C.s_type[S_Index] < 20) s_setdupefields = 1;
  2067.     return 1;
  2068.     }
  2069.   else
  2070.     {
  2071.     strcpy(s_errormsg,"At least one field must remain a data entry field.");
  2072.     return 0;
  2073.     }
  2074.   }
  2075. }
  2076.  
  2077.  
  2078.  
  2079.  
  2080. void s_resetdupe(int S_Index)
  2081. {
  2082. if (((S_Index > -1)&&(S_Index <s_curr.s_count))||
  2083.     (((s_field->C.s_type[S_Index]>=10) &&(s_field->C.s_type[S_Index]<=19))||
  2084.      ((s_field->C.s_type[S_Index]>=100)&&(s_field->C.s_type[S_Index]<=109))))
  2085.   s_field->C.s_type[S_Index]-=10;
  2086. }
  2087.  
  2088.  
  2089.  
  2090.  
  2091. void s_cleardupes()
  2092. {
  2093. int S_Index;
  2094. S_Index = 0;
  2095. while (S_Index < s_curr.s_count)
  2096.   {
  2097.   if (((s_field->C.s_type[S_Index]>=10) &&(s_field->C.s_type[S_Index]<=19))||
  2098.       ((s_field->C.s_type[S_Index]>=100)&&(s_field->C.s_type[S_Index]<=109)))
  2099.      s_setdupe(S_Index);
  2100.   S_Index++;
  2101.   }
  2102. }
  2103.  
  2104.  
  2105.  
  2106.  
  2107. void s_clearscreen(int Initialize)
  2108. {
  2109. int X;
  2110. double *RealWork, WorkVal;
  2111. setmem(s_workstr,81,0);
  2112. s_initialvalue[0]=0;
  2113. for (X=0;X<s_curr.s_count;X++)
  2114.   {
  2115.   s_getfieldtype(s_field->C.s_type[X]);
  2116.   if (Initialize)
  2117.      S_PreEdit(
  2118.        s_field->C.s_rangenextrec[X],
  2119.        s_field->C.s_rangenextline[X]);
  2120.   if (!s_duptype)
  2121.     {
  2122.     if (s_ftype < 8)
  2123.       {
  2124.       WorkVal = atof(s_initialvalue);
  2125.       RealWork = (double *)(S_WorkArea+s_fieldPtr[X]);
  2126.       *RealWork= WorkVal;
  2127.       }
  2128.     else
  2129.       {
  2130.       setmem(S_WorkArea+s_fieldPtr[X],s_field->C.s_len[X]+1,0);
  2131.       strcpy((char *)S_WorkArea+s_fieldPtr[X],s_initialvalue);
  2132.       }
  2133.     }
  2134.   }
  2135. }
  2136.  
  2137.  
  2138.  
  2139.  
  2140.  
  2141.  
  2142. void s_refreshscreen()
  2143. {
  2144. if  (s_delayed) s_delayed = 0;
  2145.     puttext(1,1,80,24,&s_record->B.s_video[0]);
  2146. S_FillScreen();
  2147. }
  2148.  
  2149.  
  2150.  
  2151.  
  2152. #ifdef COLORCHANGE
  2153. unsigned char s_changescreencolor(
  2154.   int Control,
  2155.   int Bg,
  2156.   int Fg,
  2157.   int StartRow,
  2158.   int EndRow,
  2159.   int StartCol,
  2160.   int EndCol)
  2161. {
  2162. unsigned char Row, Col, Ch, Color;
  2163. int F,P;
  2164.  
  2165. if  (Control > 4) return 1;
  2166. else
  2167. if  (Bg>7) return 2;
  2168. else
  2169. if  (Fg>30) return 3;
  2170. else
  2171. if  ((StartRow < 1)||(StartRow>24)) return 4;
  2172. else
  2173. if  ((EndRow<StartRow)||(EndRow>24)) return 5;
  2174. else
  2175. if  ((StartCol < 1)||(StartCol>80)) return 6;
  2176. else
  2177. if  ((EndCol<StartCol)||(EndCol>80)) return 7;
  2178. else
  2179.   {
  2180.   F=0;
  2181.   Row=StartRow;
  2182.   Col=StartCol;
  2183.   if (Control!=4)
  2184.      Color = S_SetColor(Bg,Fg);
  2185.  
  2186.   while ((F<s_curr.s_count)&&(s_field->C.s_row[F] < Row)) F++;
  2187.  
  2188.   while ((F<s_curr.s_count)&&
  2189.          ((s_field->C.s_col[F])+(s_field->C.s_len[F]+1))<Col) F++;
  2190.  
  2191.   if  (!(F<s_curr.s_count)) F=-1;
  2192.  
  2193.   do
  2194.     {
  2195.     if (F>-1)
  2196.       {
  2197.       while(
  2198.          (F>-1)&&
  2199.          (Row==s_field->C.s_row[F])&&
  2200.          (Col>((s_field->C.s_col[F])+(s_field->C.s_len[F]+1))))
  2201.         {
  2202.         F =(F<s_curr.s_count) ? F+1:-1;
  2203.         }
  2204.       while(
  2205.          (F>-1)&&
  2206.          (Row>=s_field->C.s_row[F])&&
  2207.          (Col>=s_field->C.s_col[F])&&
  2208.          (Col<=((s_field->C.s_col[F])+(s_field->C.s_len[F]+1))))
  2209.         {
  2210.  
  2211.         Col = ((s_field->C.s_col[F])+(s_field->C.s_len[F]+1));
  2212.         F++;
  2213.  
  2214.         if (Col>EndCol) {Row++; Col=StartCol;}
  2215.  
  2216.         if (Row>s_field->C.s_row[F])
  2217.            while ((F<s_curr.s_count)&&(Row>s_field->C.s_row[F])) F++;
  2218.  
  2219.         while((Row==s_field->C.s_row[F])&&
  2220.               (StartCol>((s_field->C.s_col[F])+(s_field->C.s_len[F]+1)))) F++;
  2221.         if (!(F<s_curr.s_count)) F=-1;
  2222.         }
  2223.       }
  2224.     if ((Row <= EndRow)&&(Col <=EndCol))
  2225.       {
  2226.       P=((Row-1)*160)+((Col-1)*2)+1;
  2227.       Ch= s_record->B.s_video[P-1];
  2228.       switch (Control)
  2229.         {
  2230.     case 0 :
  2231.       {s_record->B.s_video[P]=Color;break;}
  2232.     case 1 :
  2233.       {
  2234.           switch (Ch)
  2235.             {
  2236.             case 179:
  2237.             case 180:
  2238.             case 191:
  2239.             case 192:
  2240.             case 193:
  2241.             case 194:
  2242.             case 195:
  2243.             case 196:
  2244.             case 197:
  2245.             case 217:
  2246.             case 218:{s_record->B.s_video[P]=Color;break;}
  2247.             }
  2248.           break;
  2249.           }
  2250.         case 2 :/* Double Lines */
  2251.           {
  2252.           switch (Ch)
  2253.             {
  2254.             case 181:
  2255.             case 182:
  2256.             case 183:
  2257.             case 184:
  2258.             case 185:
  2259.             case 186:
  2260.             case 187:
  2261.             case 188:
  2262.             case 189:
  2263.             case 190:
  2264.             case 198:
  2265.             case 199:
  2266.             case 200:
  2267.             case 201:
  2268.             case 202:
  2269.             case 203:
  2270.             case 204:
  2271.             case 205:
  2272.             case 206:
  2273.             case 207:
  2274.             case 208:
  2275.             case 209:
  2276.             case 210:
  2277.             case 211:
  2278.             case 212:
  2279.             case 213:
  2280.             case 214:
  2281.             case 215:
  2282.             case 216:{s_record->B.s_video[P]=Color;break;}
  2283.             }
  2284.           break;
  2285.           }
  2286.         case 3 :/* Bold Chars */
  2287.           {
  2288.           switch (Ch)
  2289.             {
  2290.             case 219:
  2291.             case 220:
  2292.             case 221:
  2293.             case 222:
  2294.             case 223:{s_record->B.s_video[P]=Color;break;}
  2295.             }
  2296.           break;
  2297.           }
  2298.         case 4 :/* Change all color attribs (Bg) to (Fg) */
  2299.       { if (s_record->B.s_video[P]==Bg)
  2300.                 s_record->B.s_video[P]=Fg;
  2301.            break;
  2302.           }
  2303.         }
  2304.       }
  2305.     Col++;
  2306.     if (Col>EndCol) {Row++;Col=StartCol;}
  2307.     }
  2308.   while (Row<=EndRow);
  2309.   return 0;
  2310.   }
  2311. }
  2312.  
  2313.  
  2314.  
  2315.  
  2316.  
  2317. unsigned char s_changefieldcolor(
  2318.   int Field,
  2319.   int set,
  2320.   int Bg,
  2321.   int Fg)
  2322. {
  2323. if (Field>s_curr.s_count) return 1;
  2324. else
  2325. if  (set>2) return 2;
  2326. else
  2327. if  (Bg>7) return 3;
  2328. else
  2329. if  (Fg>30) return 4;
  2330. else
  2331.   {
  2332.   switch (set)
  2333.     {
  2334.     case 0 :
  2335.      {s_field->C.s_normalbg[Field]=Bg;
  2336.       s_field->C.s_normalfg[Field]=Fg;
  2337.       break;}
  2338.     case 1 :
  2339.      {s_field->C.s_promptbg[Field]=Bg;
  2340.       s_field->C.s_promptfg[Field]=Fg;
  2341.       break;}
  2342.     case 2 :
  2343.      {s_field->C.s_displaybg[Field]=Bg;
  2344.       s_field->C.s_displayfg[Field]=Fg;
  2345.       break;}
  2346.     }
  2347.   return 0;
  2348.   }
  2349. }
  2350.  
  2351.  
  2352.  
  2353.  
  2354. void s_storecolorchanges()
  2355. {
  2356. char hold[16];
  2357. int A,B,C,X,Y,Z;
  2358. int RR;
  2359. long rec;
  2360.  
  2361. if  (s_curr.s_fieldsrecno)
  2362.   {
  2363.   s_firstfield = (s_curr.s_first)-1;
  2364.   s_point      = 0;
  2365.   for (X=0;X<s_curr.s_count;X++)
  2366.     {
  2367.     Z = ((s_field->C.s_col[X])-1)*2;
  2368.     A = ((s_field->C.s_col[X]-1)+s_field->C.s_len[X])*2;
  2369.     B = (s_field->C.s_row[X]-1)*160;
  2370.     s_record->B.s_video[B+Z]='[';
  2371.     s_record->B.s_video[B+A]=']';
  2372.     C = 0;
  2373.     Z = s_field->C.s_col[X]*2;
  2374.     while (C<15)
  2375.       {
  2376.       if  (s_field->C.s_fieldname[X][C] > 32)
  2377.         {
  2378.         s_record->B.s_video[B+Z] = s_field->C.s_fieldname[X][C];
  2379.         }
  2380.       else
  2381.         C=99;
  2382.       Z+=2;
  2383.       C++;
  2384.       }
  2385.     movmem(&s_field->C.s_fieldname[X][0],hold,16);
  2386.     movmem(hold,&s_field->C.s_fieldname[X][1],16);
  2387.     s_field->C.s_fieldname[X][0]=0;
  2388.     Z = 1;
  2389.     while (Z<17)
  2390.       {
  2391.       if (s_field->C.s_fieldname[X][Z]>32)
  2392.         {
  2393.         s_field->C.s_fieldname[X][0]++;
  2394.         Z++;
  2395.         }
  2396.       else
  2397.         Z=99;
  2398.       }
  2399.     }
  2400.   rec = (long) (s_curr.s_fieldsrecno)*sizeof(*s_record);
  2401.   C=fseek(s_file,rec,0);
  2402.   C=fwrite((void *)s_field,sizeof(*s_field),1,s_file);
  2403.   }
  2404. rec = (long) (s_curr.s_recordnumber)*sizeof(*s_record);
  2405. C=fseek(s_file,rec,0);
  2406. C=fwrite((void *)s_record,sizeof(*s_record),1,s_file);
  2407. s_loadscreen(s_curr.s_name);
  2408. }
  2409. #endif
  2410.  
  2411.  
  2412.  
  2413. #ifdef VALIDATE
  2414. #include "Validate.C"
  2415. #endif
  2416.  
  2417.  
  2418.  
  2419.  
  2420. void s_nextkey()
  2421. {
  2422. if  (S_FirstTime) s_init();
  2423. s_errormsg[0]=0;
  2424. s_usermsg[0]=0;
  2425. s_autohelpmsg[0]=0;
  2426. s_wait=1;
  2427. S_GetKey();
  2428. }
  2429.  
  2430.  
  2431.  
  2432.  
  2433. void s_readkey()
  2434. {
  2435. if  (S_FirstTime) s_init();
  2436. if  (s_delayed) s_refreshscreen();
  2437. if  (s_curr.s_count > 0) S_FillScreen();
  2438. s_stlabelcolor = S_SetColor(s_stlabelbg,s_stlabelfg);
  2439. s_stcolor      = S_SetColor(s_stbg,s_stfg);
  2440. S_GetKey();
  2441. }
  2442.  
  2443.  
  2444.  
  2445.  
  2446. void s_readfield()
  2447. {
  2448. double *Dbl;
  2449. int x,y;
  2450. if  (S_FirstTime) s_init();
  2451. if  (s_delayed) s_refreshscreen();
  2452. if  (s_curr.s_count > 0) S_FillScreen();
  2453. if  ((s_point < 0)||(s_point > s_curr.s_count))
  2454.   {
  2455.   strcpy(s_errormsg," Field number in s_point is out of range ");
  2456.   s_readkey();
  2457.   goto Exit_Proc;
  2458.   }
  2459.  
  2460. if  ((s_field->C.s_type[s_point]>89)&&(s_field->C.s_type[s_point]<110))
  2461.   {
  2462.   strcpy(s_errormsg," Cannot read a DISPLAY only field - Any key to continue ");
  2463.   s_readkey();
  2464.   goto Exit_Proc;
  2465.   }
  2466.  
  2467. if  ((s_field->C.s_type[s_point]>9)&&(s_field->C.s_type[s_point]<20))
  2468.   {
  2469.   if  (!s_setdupefields)
  2470.     {
  2471.     strcpy(s_errormsg," Invalid access of dupe (repeating) field - Any key to Continue");
  2472.     s_readkey();
  2473.     goto Exit_Proc;
  2474.     }
  2475.   };
  2476. if (s_setdupefields) s_setdupefields = 0;
  2477.  
  2478. s_prevfield   = s_point;
  2479. s_screenvalid = 0;
  2480. s_resetkeyflags();
  2481.  
  2482.  
  2483. #ifdef MOUSE
  2484. while ((!s_ms->mouseevent)&&(!s_screenvalid)&&(!s_fkey))
  2485. #else
  2486. while ((!s_screenvalid)&&(!s_fkey))
  2487. #endif
  2488.   {
  2489.   S_Get_Field_Value(s_point);
  2490.   s_getfieldtype(s_field->C.s_type[s_point]);
  2491.  
  2492. #ifdef MOUSE
  2493.   while ((!s_ms->mouseevent)&&(!s_enter)&&(s_prevfield == s_point)&&(!s_fkey))
  2494. #else
  2495.   while ((!s_enter)&&(s_prevfield == s_point)&&(!s_fkey))
  2496. #endif
  2497.     {
  2498.     S_PreEdit(
  2499.       s_field->C.s_rangenextrec[s_point],
  2500.       s_field->C.s_rangenextline[s_point]);
  2501.     s_editstring(
  2502.       s_field->C.s_row[s_point],
  2503.       s_field->C.s_col[s_point],
  2504.       s_ftype,
  2505.       s_field->C.s_len[s_point],
  2506.       s_field->C.s_promptfg[s_point],
  2507.       s_field->C.s_promptbg[s_point],
  2508.       s_field->C.s_displayfg[s_point],
  2509.       s_field->C.s_displaybg[s_point],
  2510.       s_field->C.s_normalfg[s_point],
  2511.       s_field->C.s_normalbg[s_point],
  2512.       s_editstr);
  2513.  
  2514.     s_field->C.s_datalen[s_point] = strlen(s_editstr);
  2515.  
  2516.     if (s_ftype<8)
  2517.       {
  2518.       x=0;
  2519.       y=0;
  2520.       while (s_editstr[x]!=0) if (s_editstr[x++]=='.') {y=1;break;};
  2521.       if  (y==0)
  2522.         strcat(s_editstr,".0 ");
  2523.       else
  2524.         strcat(s_editstr,"0 ");
  2525.       Dbl = (double *)(S_WorkArea+s_fieldPtr[s_point]);
  2526.       *Dbl=atof(s_editstr);
  2527.       }
  2528.     else
  2529.       {
  2530.       y=strlen(s_editstr);
  2531.       while ((y>0)&&(s_editstr[y-1]<33))
  2532.         {
  2533.         s_editstr[y-1]=0;
  2534.         y--;
  2535.         }
  2536.       strcpy((char *)S_WorkArea+s_fieldPtr[s_point],s_editstr);
  2537.       }
  2538.     if  (s_tab) s_fkey = 1;
  2539.     }
  2540.  
  2541.   s_point = s_prevfield;
  2542.  
  2543.   if  ((s_tab)||(s_enter)||(s_leftarrow)||(s_rightarrow))
  2544.     {
  2545. #ifdef VALIDATE
  2546.     if  (s_field->C.s_rangenextrec[s_point]>0)
  2547.       {
  2548.       s_validatefield = s_point;
  2549.       s_validatescreen();
  2550.       s_validatefield = 0;
  2551.       s_prevfield     = s_point;
  2552.       if  (!s_screenvalid) s_resetkeyflags();
  2553.       }
  2554.     else
  2555. #endif
  2556.       if  ((strlen(s_editstr) > s_field->C.s_len[s_point])||(s_enter))
  2557.         s_screenvalid = 1;
  2558.     }
  2559.   }
  2560. Exit_Proc:
  2561. delay(0);
  2562. }
  2563.  
  2564.  
  2565.  
  2566.  
  2567. void s_readscreen()
  2568. {
  2569. int x,y;
  2570. double *Dbl;
  2571. if  (S_FirstTime) s_init();
  2572. if  (s_delayed) s_refreshscreen();
  2573. switch (s_curr.s_compiledind)
  2574.   {
  2575.   case 1 :
  2576.     {s_readkey();break;}
  2577.   case 2 :
  2578.     {s_readkey();break;}
  2579.   case 3 :
  2580.     {
  2581.     s_screenvalid   = 0;
  2582.     s_validatefield = -1;
  2583.     do
  2584.       {
  2585.       S_FillScreen();
  2586.  
  2587.       if (s_point < 0) s_prevfield = 9999;
  2588.       s_direction = 1;
  2589.  
  2590.       if  ((s_point > s_curr.s_count)||(s_point < 0))
  2591.         s_point = s_curr.s_count-1;
  2592.       else
  2593.         s_prevfield = s_point;
  2594.  
  2595.       do
  2596.         {
  2597.         if ((s_field->C.s_type[s_point]>19)||
  2598.            ((!s_setdupefields)&&(s_field->C.s_type[s_point] > 9)))
  2599.           {
  2600.           s_prevfield = -1;
  2601.           do
  2602.             {
  2603.             s_point = (s_direction > 0) ?
  2604.               s_field->C.s_next[s_point]-1 : s_field->C.s_prev[s_point]-1;
  2605.         s_getfieldtype(s_field->C.s_type[s_point]);
  2606.             if ((s_entrytype)||
  2607.                 ((!s_disptype)&&((s_duptype)&&(s_direction== -1))))
  2608.               s_prevfield = s_point;
  2609.             }
  2610.           while (s_prevfield == -1);
  2611.           }
  2612.         else
  2613.             s_setdupefields = 0;
  2614.  
  2615.         s_prevfield = s_point;
  2616.         S_Get_Field_Value(s_point);
  2617.  
  2618.         s_direction = 1;
  2619.         S_PreEdit(
  2620.           s_field->C.s_rangenextrec[s_point],
  2621.           s_field->C.s_rangenextline[s_point]);
  2622.         s_editstring(
  2623.           s_field->C.s_row[s_point],
  2624.           s_field->C.s_col[s_point],
  2625.           s_ftype,
  2626.           s_field->C.s_len[s_point],
  2627.       s_field->C.s_promptfg[s_point],
  2628.       s_field->C.s_promptbg[s_point],
  2629.       s_field->C.s_displayfg[s_point],
  2630.       s_field->C.s_displaybg[s_point],
  2631.       s_field->C.s_normalfg[s_point],
  2632.       s_field->C.s_normalbg[s_point],
  2633.       s_editstr);
  2634.  
  2635.         s_field->C.s_datalen[s_point] = strlen(s_editstr);
  2636.  
  2637.     if ((s_enterafterfield > -1)&&
  2638.         (s_enterafterfield == s_point))
  2639.         s_enter = 1;
  2640.  
  2641.         if (s_ftype < 8)
  2642.           {
  2643.           x=0;
  2644.           y=0;
  2645.       while (s_editstr[x]!=0) if (s_editstr[x++]=='.') {y=1;break;};
  2646.           if  (y==0)
  2647.             strcat(s_editstr,".0 ");
  2648.           else
  2649.             strcat(s_editstr,"0 ");
  2650.           Dbl = (double *)(S_WorkArea+s_fieldPtr[s_point]);
  2651.           *Dbl=atof(s_editstr);
  2652.           }
  2653.         else
  2654.           {
  2655.           y=strlen(s_editstr);
  2656.           while ((y>0)&&(s_editstr[y-1]<33))
  2657.             {
  2658.             s_editstr[y-1]=0;
  2659.             y--;
  2660.             }
  2661.           strcpy((char *)S_WorkArea+s_fieldPtr[s_point],s_editstr);
  2662.           }
  2663. #ifdef VALIDATE
  2664.          if ((s_autovalidate)&&(!s_enter))
  2665.            {
  2666.            if  (s_field->C.s_rangenextrec[s_point] > 0)
  2667.              {
  2668.              s_validatefield = s_point;
  2669.              s_validatescreen();
  2670.              s_validatefield = -1;
  2671.              if  (!s_screenvalid)
  2672.                {
  2673.                s_tab = 0;
  2674.                s_enter = 0;
  2675.                }
  2676.              }
  2677.            }
  2678. #endif
  2679.     if  ((s_enterafterfield > -1)&&
  2680.          (s_enterafterfield==s_point))
  2681.         s_enter = 1;
  2682.         if  (s_tab)
  2683.           {
  2684.           s_direction = (s_shift) ? -1:1;
  2685.           s_point = (s_direction > 0)
  2686.             ? (s_field->C.s_next[s_point]-1): (s_field->C.s_prev[s_point]-1);
  2687.           if ((s_shift)&&
  2688.               (s_field->C.s_type[s_point]>9)&&
  2689.               (s_field->C.s_type[s_point]<20)) s_setdupefields = 1;
  2690.           s_fkey  = 0;
  2691.           s_shift = 0;
  2692.           }
  2693.         }
  2694. #ifdef MOUSE
  2695.       while ((!s_ms->mouseevent) && (!s_enter) && (!s_fkey));
  2696. #else
  2697.       while ((!s_enter) && (!s_fkey));
  2698. #endif
  2699.  
  2700. #ifdef VALIDATE
  2701.       if (s_enter)
  2702.         {
  2703.         s_validatefield = -1;
  2704.         s_validatescreen();
  2705.         if (!s_screenvalid) s_fkey = 0;
  2706.         }
  2707.       else
  2708. #endif
  2709.         s_screenvalid = 1;
  2710.       }
  2711. #ifdef MOUSE
  2712.     while ((!s_ms->mouseevent) && (!s_screenvalid) && (!s_fkey));
  2713. #else
  2714.     while ((!s_screenvalid) && (!s_fkey));
  2715. #endif
  2716.     }
  2717.   }
  2718. }
  2719.